home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 August / CD [BM9508].bin / basic / toukou / vb / main.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-06-15  |  4.2 KB  |  130 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   1  '
  6.    Caption         =   "
  7.    Height          =   6105
  8.    Icon            =   MAIN.FRX:0000
  9.    KeyPreview      =   -1  'True
  10.    Left            =   1080
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   358
  15.    ScaleMode       =   3  '
  16.    ScaleWidth      =   337
  17.    Top             =   1110
  18.    Width           =   5175
  19.    Begin PictureBox Picture1 
  20.       AutoRedraw      =   -1  'True
  21.       AutoSize        =   -1  'True
  22.       BackColor       =   &H00404040&
  23.       BorderStyle     =   0  '
  24.       Height          =   4830
  25.       Left            =   105
  26.       ScaleHeight     =   322
  27.       ScaleMode       =   3  '
  28.       ScaleWidth      =   322
  29.       TabIndex        =   1
  30.       Top             =   390
  31.       Width           =   4830
  32.       Begin Timer Timer1 
  33.          Enabled         =   0   'False
  34.          Interval        =   100
  35.          Left            =   277
  36.          Top             =   33
  37.       End
  38.       Begin Image Image1 
  39.          Enabled         =   0   'False
  40.          Height          =   480
  41.          Left            =   600
  42.          Picture         =   MAIN.FRX:0302
  43.          Top             =   4110
  44.          Width           =   480
  45.       End
  46.    End
  47.    Begin Label Score 
  48.       Alignment       =   2  '
  49.       AutoSize        =   -1  'True
  50.       BackStyle       =   0  '
  51.       Caption         =   "
  52.       ForeColor       =   &H00FFFFFF&
  53.       Height          =   270
  54.       Left            =   1815
  55.       TabIndex        =   0
  56.       Top             =   30
  57.       Width           =   1410
  58.    End
  59.    Begin Menu File 
  60.       Caption         =   "
  61. (&F)"
  62.       Begin Menu Start 
  63.          Caption         =   "
  64. g(&S)"
  65.       End
  66.       Begin Menu Quit 
  67.          Caption         =   "
  68. (&Q)"
  69.       End
  70.    End
  71. Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  72.     Power = 1000
  73.     MouseX = X - Picture1.Left: MouseY = Y - Picture1.Top
  74. End Sub
  75. Sub InitGame () '
  76.     GamePath = CurDir$
  77.     If Right$(GamePath, 1) <> "\" Then GamePath = GamePath + "\"
  78.     MyName = GamePath + "SC" + Right$("000" + Mid$(Str$(Scene), 2), 3)
  79.     Open MyName + ".txt" For Input As #1
  80.     Input #1, Temp$: StartTime = Val(Temp$)
  81.     Input #1, Temp$: Image1.Left = Val(Temp$)
  82.     Input #1, Temp$: Image1.Top = Val(Temp$)
  83.     Close #1
  84.     Picture1.Picture = LoadPicture(MyName + ".bmp")
  85.     vX = 0: vY = 0
  86.     Timer1.Enabled = True
  87. End Sub
  88. Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  89.     Power = 1000'
  90.     MouseX = X: MouseY = Y'
  91. End Sub
  92. Sub Quit_Click ()
  93.     End
  94. End Sub
  95. Sub Start_Click ()
  96.     Scene = 1: InitGame
  97. End Sub
  98. Sub Timer1_Timer ()
  99.     X1 = Image1.Left + 16: Y1 = Image1.Top + 16'
  100.     X2 = MouseX: Y2 = MouseY'
  101.     Length2 = (X1 - X2) ^ 2 + (Y1 - Y2) ^ 2
  102.     If Length2 < 400 Then Length2 = 400
  103.     '
  104.     Accer = Power / Length2'
  105.     HoukouX = Sgn(X1 - X2): HoukouY = Sgn(Y1 - Y2)
  106.     'X
  107.     Kakudo = Atn(Abs(Y1 - Y2) / Abs(X1 - X2 - .0001))
  108.     '
  109.     PowX = Accer * Cos(Kakudo): PowY = Accer * Sin(Kakudo)
  110.     vX = vX + PowX * HoukouX: vY = vY + PowY * HoukouY
  111.     '
  112.     Image1.Move X1 + vX - 16, Y1 + vY - 16'
  113.     CheckPoint& = Picture1.Point(X1 + vX, Y1 + vY)
  114.     '
  115.     If CheckPoint& > 1 Then MsgBox "
  116. I": Timer1.Enabled = False
  117.     '
  118.     If Image1.Top < -16 Then '
  119.         Timer1.Enabled = False: MsgBox Str$(Scene) + "
  120.         Scene = Scene + 1: If Scece = 5 Then MsgBox "
  121. I": Exit Sub
  122.         Call InitGame: Exit Sub
  123.     End If
  124.     StartTime = StartTime - 1: Score.Caption = "
  125.  :" + Str$(StartTime)
  126.     If StartTime < 1 Then MsgBox "
  127. I": Timer1.Enabled = False
  128.     Power = 0
  129. End Sub
  130.